home *** CD-ROM | disk | FTP | other *** search
/ SuperModels in the Rainforest / SuperModels in the Rainforest.iso / rain.dxr / 00490.ls < prev    next >
Encoding:
Text File  |  1995-10-13  |  2.2 KB  |  96 lines
  1. on enterFrame
  2.   preLoadCast(271)
  3.   preLoadCast(285)
  4.   preLoadCast(273)
  5.   preLoadCast(267)
  6.   preLoadCast(279)
  7.   preLoadCast(280)
  8.   preLoadCast(320)
  9.   preLoadCast(340)
  10.   preLoadCast(360)
  11.   preLoadCast(380)
  12.   preLoadCast(400)
  13.   preLoadCast(420)
  14. end
  15.  
  16. on exitFrame
  17.   global gbVideoUp, girly
  18.   set girly to 1
  19.   nameplate()
  20.   if gbVideoUp = 1 then
  21.     repeat with x = 25 to 29
  22.       if rollOver(x) then
  23.         set the cursor of sprite x to [561, 562]
  24.       end if
  25.     end repeat
  26.     set the cursor of sprite 29 to [569, 570]
  27.     set the visible of sprite 2 to 1
  28.     repeat with x = 3 to 5
  29.       if rollOver(x) then
  30.         set the cursor of sprite x to [563, 564]
  31.       end if
  32.     end repeat
  33.     repeat with x = 25 to 29
  34.       if rollOver(x) then
  35.         set the visible of sprite x to 1
  36.         next repeat
  37.       end if
  38.       set the visible of sprite x to 0
  39.     end repeat
  40.   else
  41.     set the visible of sprite 2 to 0
  42.   end if
  43.   repeat with x = 20 to 24
  44.     if rollOver(x) then
  45.       set the cursor of sprite x to [561, 562]
  46.     end if
  47.   end repeat
  48.   repeat with x = 20 to 24
  49.     if rollOver(x) then
  50.       set the visible of sprite x to 1
  51.       next repeat
  52.     end if
  53.     set the visible of sprite x to 0
  54.   end repeat
  55.   go(the frame)
  56. end
  57.  
  58. on keyDown
  59.   global giVid2Sprite, giVidSprite, giTempVid2Cast, giTempVidCast
  60.   set tempSprite to 0
  61.   if the visible of sprite giVid2Sprite = 1 then
  62.     set tempSprite to giVid2Sprite
  63.     set tempCast to giTempVid2Cast
  64.   else
  65.     if the visible of sprite giVidSprite = 1 then
  66.       set tempSprite to giVidSprite
  67.       set tempCast to giTempVidCast
  68.     end if
  69.   end if
  70.   if tempSprite then
  71.     set the sound of cast tempCast to 0
  72.     if the keyCode = 123 then
  73.       set the movieRate of sprite tempSprite to -1
  74.     else
  75.       if the keyCode = 124 then
  76.         set the movieRate of sprite tempSprite to 1
  77.       end if
  78.     end if
  79.   end if
  80. end
  81.  
  82. on keyUp
  83.   global giVid2Sprite, giVidSprite
  84.   set tempSprite to 0
  85.   if the visible of sprite giVid2Sprite = 1 then
  86.     set tempSprite to giVid2Sprite
  87.   else
  88.     if the visible of sprite giVidSprite = 1 then
  89.       set tempSprite to giVidSprite
  90.     end if
  91.   end if
  92.   if ((the keyCode = 123) or (the keyCode = 124)) and tempSprite then
  93.     set the movieRate of sprite tempSprite to 0
  94.   end if
  95. end
  96.